home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 August / macformat-027.iso / mac / Shareware City / Developers / Oberon⁄F / Mac / Mod / FontMgr (.txt) < prev    next >
Encoding:
Oberon Document  |  1994-06-07  |  4.0 KB  |  106 lines  |  [oODC/obnF]
  1. Documents.StdDocumentDesc
  2. Documents.DocumentDesc
  3. Containers.ViewDesc
  4. Views.ViewDesc
  5. Stores.StoreDesc
  6. Documents.ModelDesc
  7. Containers.ModelDesc
  8. Models.ModelDesc
  9. Stores.ElemDesc
  10. TextViews.StdViewDesc
  11. TextViews.ViewDesc
  12. TextModels.StdModelDesc
  13. TextModels.ModelDesc
  14. TextModels.AttributesDesc
  15. Geneva
  16. Geneva
  17. StdStamps.StdViewDesc
  18. Geneva
  19. Geneva
  20. MODULE MacFontMgr;
  21. (* cp 
  22.     unusual font constants eliminated
  23.     FMInput, FMOutput, FontRec eliminated
  24.     SetFontLock, FMSwapFont eliminated
  25.     IMPORT SYSTEM, MacTypes;
  26.     CONST
  27.         systemFont* = 0;
  28.         applFont* = 1;
  29.         newYork* = 2;
  30.         geneva* = 3;
  31.         monaco* = 4;
  32.         times* = 20;
  33.         helvetica* = 21;
  34.         courier* = 22;
  35.         symbol* = 23;
  36.         commandMark* = 11X;
  37.         checkMark* = 12X;
  38.         diamondMark* = 13X;
  39.         appleMark* = 14X;
  40.         propFont* = 09000H;
  41.         fixedFont* = 0B000H;
  42.         fontWid* = 0ACB0H;
  43.         HANDLE = 2;
  44.         UNTAGGED = 1;
  45.         CODE = 1; NOSTKCHK = 4;
  46.     TYPE
  47.         FontInfo* = RECORD (MacTypes.Data)
  48.             ascent*,
  49.             descent*,
  50.             widMax*,
  51.             leading*: INTEGER
  52.         END;
  53.         WidthTable* = RECORD (MacTypes.Data)
  54.             tabData*: ARRAY [UNTAGGED] 256 OF MacTypes.Fixed;
  55.             tabFont*: MacTypes.Handle;
  56.             sExtra*: LONGINT;
  57.             style*: LONGINT;
  58.             fID*, fSize*, face*, device*: INTEGER;
  59.             inNumer*, inDenom*: MacTypes.Point;
  60.             aFID*: INTEGER;
  61.             fHand*: MacTypes.Handle;
  62.             usedFam*: BOOLEAN;
  63.             aFace*: SHORTINT;
  64.             vOutput*, hOutput*: INTEGER;
  65.             vFactor*, hFactor*: INTEGER;
  66.             aSize*, tabSize*: INTEGER
  67.         END;
  68.         WidthTableHandle* = POINTER [HANDLE] TO WidthTable;
  69.         FMetricRec* = RECORD (MacTypes.Data)
  70.             ascent*,
  71.             descent*,
  72.             leading*,
  73.             widMax*: MacTypes.Fixed;
  74.             wTabHandle*: WidthTableHandle
  75.         END;
  76.     PROCEDURE [CODE] GetFontName* (fontNum: INTEGER; VAR theName: MacTypes.Str255) 0A8H, 0FFH;
  77.     PROCEDURE [CODE] GetFNum* (fontName: MacTypes.Str255; VAR theNum: INTEGER) 0A9H, 000H;
  78.     PROCEDURE [CODE] RealFont* (fontNum: INTEGER; size: INTEGER): BOOLEAN 0A9H, 002H;
  79.     PROCEDURE [CODE] GetFontInfo* (VAR info: FontInfo) 0A8H, 08BH;
  80.     PROCEDURE [CODE] FontMetrics* (VAR theMetrics: FMetricRec) 0A8H, 035H;
  81.     PROCEDURE [CODE] CharWidth* (ch: INTEGER): INTEGER 0A8H, 08DH;
  82.     PROCEDURE [CODE] StringWidth* (s: MacTypes.Str255): INTEGER 0A8H, 08CH;
  83.     PROCEDURE [CODE] TextWidth* (textBuf: MacTypes.Ptr;
  84.                         firstByte, byteCount: INTEGER): INTEGER 0A8H, 086H;
  85.     PROCEDURE [CODE] MeasureText* (count: INTEGER; textAddr, charLocs: MacTypes.Ptr) 0A8H, 037H;
  86.     PROCEDURE [CODE] StdTxMeas* (byteCount: INTEGER; textAddr: MacTypes.Ptr;
  87.                         VAR numer, denom: MacTypes.Point; VAR info: FontInfo): INTEGER;
  88.     PROCEDURE [CODE] setFractEnable (fractEnable: INTEGER) 0A8H, 014H;
  89.     PROCEDURE [NOSTKCHK] SetFractEnable* (fractEnable: BOOLEAN);
  90.     BEGIN
  91.         IF fractEnable THEN setFractEnable(-1) ELSE setFractEnable(0) END
  92.     END SetFractEnable;
  93.     PROCEDURE [CODE] InitFonts*    0A8H, 0FEH;
  94. END MacFontMgr.
  95. TextControllers.StdCtrlDesc
  96. TextControllers.ControllerDesc
  97. Containers.ControllerDesc
  98. Controllers.ControllerDesc
  99. TextRulers.StdRulerDesc
  100. TextRulers.RulerDesc
  101. TextRulers.StdStyleDesc
  102. TextRulers.StyleDesc
  103. TextRulers.AttributesDesc
  104. Geneva
  105. Documents.ControllerDesc
  106.